VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CGuia"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private logica As LGuia
Private lTipoGuia As ltipo
Private lEstado As lEstado
Private lAlmacen As lAlmacen
Private lProducto As lProducto
Public Function buscar(bean As bguia) As Collection
Set buscar = logica.getLista(bean)
End Function
Private Sub Class_Initialize()
    Set logica = New LGuia
    Set lTipoGuia = New ltipo
    Set lEstado = New lEstado
    Set lAlmacen = New lAlmacen
    Set lProducto = New lProducto
End Sub
Public Sub procesar(ByRef bean As bguia)
Set bean.bUsuarioModificacion = bParametro.bUsuarioActivo
If logica.procesar(bean) = UtilConstantes.OPT_ERROR_ENCONTRADO Then
    utilMensaje.muestraMensaje errorEncontrado
End If
Set frmEntrarGuia.bean = logica.getInfo(bean)
End Sub
Public Sub abrirRegistrarGuia()
Dim bguia As New bguia
Dim ListaEstado As Collection
bguia.bestado.nCodigo = UtilConstantes.ESTADO_GUIA_NUEVA
Set frmEntrarGuia.ltiposguia = lTipoGuia.geTiposGuia
Set bguia.bUsuarioCreacion = bParametro.bUsuarioActivo
bguia.dFecRegistro = Date
bguia.bestado.nCodigo = UtilConstantes.ESTADO_GUIA_NUEVA
Set frmEntrarGuia.bean = bguia
frmEntrarGuia.Show
End Sub
Public Sub abrirEditarGuia(bguia As bguia)
Dim ListaEstado As Collection
Dim b As bestado
Set frmEntrarGuia.ltiposguia = lTipoGuia.geTiposGuia
Set ListaEstado = lEstado.getestadosGuia
logica.getDetalle bguia
Set frmEntrarGuia.bean = bguia
Set bguia.bUsuarioModificacion = bParametro.bUsuarioActivo
frmEntrarGuia.Show
End Sub
Public Function guardar(ByRef bguia As bguia) As Integer
guardar = logica.guardar(bguia)
End Function
Public Sub mostrarAgregarDetalle(ByRef bguia As bguia)
Set frmEntrarGuiaDetalle.listaAlmacen = lAlmacen.getLista(New balmacen)
Set frmEntrarGuiaDetalle.lProducto = lProducto.getLista(New bproducto)
Set frmEntrarGuiaDetalle.bguia = bguia
frmEntrarGuiaDetalle.sModo = UtilConstantes.MODO_NUEVO
frmEntrarGuiaDetalle.Show 1

End Sub


Public Sub agregarDetalle(ByRef mvarBGuia As bguia)
    logica.guardarDetalle mvarBGuia
    logica.getDetalle mvarBGuia
    Set frmEntrarGuia.bean = mvarBGuia
End Sub

Public Sub actualizarDetalle(bean As bdetalle, bpedido As bpedido)
    logica.guardarDetalle bpedido
    logica.getDetalle bean
    Set frmEntrarPedido.bean = bpedido
End Sub
Public Sub eliminarDetalle(bdetalle As BGuiaDetalle, ByRef bean As bguia)
'    If logica.EliminaDetalle(bean) = UtilConstantes.OPT_DATOS_ELIMINADOS Then
'        logica.getDetalle bean
'    End If
End Sub
